home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / grafik / raytracing / rayshade-4.0.6.3 / examples / cork_screw.ray < prev    next >
Encoding:
Text File  |  1994-08-09  |  2.9 KB  |  173 lines
  1. /*
  2.  * Sample file, by Larry Coffin
  3.  */
  4.  
  5. screen (1280/2) (1024/2)
  6.  
  7. eyep -3 -33 6
  8. lookp .2 .2 3
  9. background 0 0 1
  10. fov 45
  11.  
  12. sample 3
  13. maxdepth 3
  14.  
  15. light 1 1 1  point 500 -500 500
  16.  
  17. surface this_red
  18.     ambient .5 0 0
  19.     diffuse 1 0 0
  20.  
  21. surface neon_blue
  22.         ambient 0.0329 0.4621 0.5125
  23.         diffuse .5 .5 .5
  24.         specular .3 .3 .3
  25.         specpow 67
  26.  
  27. surface hot_pink
  28.     ambient 1.000 0.461 0.461
  29.         diffuse .4 .4 .4
  30.         specular .3 .3 .3
  31.         specpow 85
  32.  
  33. surface hot_green
  34.     ambient 0.442 1.000 0.309
  35.     diffuse .4 .4 .4
  36.     specular .3 .3 .3
  37.     specpow 70
  38.  
  39. surface handle
  40.     ambient 0 0 0
  41.     diffuse .1 .1 .1
  42.     specular .5 .5 .5
  43.     specpow 50
  44.  
  45. surface st_steel
  46.     ambient .1 .1 .1
  47.     diffuse .3 .3 .3
  48.     specular 1 1 1
  49.     specpow 300
  50.     reflect 1
  51.  
  52. surface tan
  53.     ambient 0.305 0.255 0.12
  54.     diffuse 0.709 0.509 0.236
  55.     
  56. surface red
  57.         ambient .45 0 0
  58.         diffuse .9 0 0
  59.  
  60. surface black
  61.         ambient .025 .025 .025
  62.         diffuse .05 .05 .05
  63.  
  64. surface brown
  65.         ambient .2 .1 .05
  66.         diffuse .4 .2 .1
  67.         
  68. plane red 0 0 -7.1  0 0 1
  69.         texture checker black
  70.                 scale 10 10 10
  71.  
  72.  
  73. #define zstep 2.7
  74. #define rad 2
  75. #define contrl rad*1.31
  76. #define wirerad .7
  77.  
  78. name cscrew list
  79.     sweptsph handle bezier -10 0 0  -7 0 0  7 0 0  10 0 0
  80.         1 6 -6 0
  81.         scale 1.8 1.8 1.8
  82.         translate 0 0 (11*zstep)
  83.  
  84.     cylinder st_steel wirerad  0 0 (11*zstep)  0 0 (8*zstep)
  85.  
  86.     sweptsph st_steel
  87.         xbezier 0 0 (-rad) (-rad)
  88.         ybezier 0 0 (-contrl) 0
  89.         zcoeffs (8*zstep) (-zstep) 0 0
  90.         wirerad 0 0 0
  91.  
  92.     list
  93.         sweptsph st_steel
  94.             xbezier rad rad -rad -rad
  95.             ybezier 0 (contrl) (contrl) 0
  96.             zcoeffs 0 zstep 0 0
  97.             wirerad 0 0 0
  98.  
  99.         sweptsph st_steel
  100.             xbezier -rad -rad rad rad
  101.             ybezier 0 (-contrl) (-contrl) 0
  102.             zcoeffs zstep zstep 0 0
  103.             wirerad 0 0 0
  104.  
  105.         sweptsph st_steel
  106.             xbezier rad rad -rad -rad
  107.             ybezier 0 (contrl) (contrl) 0
  108.             zcoeffs (2*zstep) zstep 0 0
  109.             wirerad 0 0 0
  110.  
  111.         sweptsph st_steel
  112.             xbezier -rad -rad rad rad
  113.             ybezier 0 (-contrl) (-contrl) 0
  114.             zcoeffs (3*zstep) zstep 0 0
  115.             wirerad 0 0 0
  116.  
  117.         sweptsph st_steel
  118.             xbezier rad rad -rad -rad
  119.             ybezier 0 (contrl) (contrl) 0
  120.             zcoeffs (4*zstep) zstep 0 0
  121.             wirerad 0 0 0
  122.  
  123.         sweptsph st_steel
  124.             xbezier -rad -rad rad rad
  125.             ybezier 0 (-contrl) (-contrl) 0
  126.             zcoeffs (5*zstep) zstep 0 0
  127.             wirerad 0 0 0
  128.  
  129.         sweptsph st_steel
  130.             xbezier rad rad -rad -rad
  131.             ybezier 0 (contrl) (contrl) 0
  132.             zcoeffs (6*zstep) zstep 0 0
  133.             wirerad 0 0 0
  134.  
  135.     end
  136.  
  137.  
  138.         sweptsph st_steel
  139.             xbezier rad rad (contrl/2) 0
  140.             ybezier 0 (-contrl/2) -rad -rad
  141.             zcoeffs 0 (-0.5*zstep) 0 0
  142.             wirerad -wirerad 0 0
  143.  
  144. end
  145.     scale .3 .3 .3
  146.  
  147.  
  148. object cscrew rotate .4 .4 1  45
  149.  
  150.  
  151. name cork list
  152.     cone tan
  153.         2.3 0 0 0
  154.         1.8 0 0 -5
  155.     disc tan 2.3  0 0 0  0 0 1
  156.     disc tan 1.8  0 0 -5  0 0 -1
  157. end
  158.     texture bump 1
  159.         scale .2 .2 .2
  160.     texture blotch -.5 brown
  161.         scale .2 .2 .2
  162.     texture blotch -.5 brown
  163.         scale .2 .2 .2
  164.     texture blotch -.2 black
  165.         scale .2 .2 .2
  166.     texture blotch -.2 black
  167.         scale .2 .2 .2
  168.  
  169. object cork
  170.     translate 0 0 -2
  171.     rotate .4 .4 1 45
  172.  
  173.